home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
1138
/
source.zip
/
FRMABOUT.FRM
< prev
next >
Wrap
Text File
|
1995-01-21
|
2KB
|
62 lines
VERSION 2.00
Begin Form FRMABOUT
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
ClientHeight = 3720
ClientLeft = 1200
ClientTop = 1668
ClientWidth = 5736
ClipControls = 0 'False
ControlBox = 0 'False
FillColor = &H00FF0000&
ForeColor = &H00FF0000&
Height = 4140
Left = 1152
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3720
ScaleLeft = -200
ScaleMode = 0 'User
ScaleTop = -200
ScaleWidth = 5736
Top = 1296
Width = 5832
End
Option Explicit
Sub Command1_Click ()
Unload frmabout
End Sub
Sub Form_Click ()
Unload frmabout
End Sub
Sub Form_Load ()
Width = frmmain.Width * .7
Height = frmmain.Height * .7
left = (screen.Width - Width) / 2
top = (screen.Height - Height) / 2
End Sub
Sub Form_Paint ()
Dim version As String
Print " Paperboy for Windows " & PaperboyVersion
Print " Copyright ⌐ 1995, Michael H. Vartanian"
Print " vart@clark.net"
Print " Paperboy for Windows comes with ABSOLUTELY NO WARRANTY."
Print " This is free software, and you are welcome to redistribute it"
Print " under certain conditions; for details, see file COPYING."
Print
Print " -- DLL Information --"
version = fixstr(VersionDesc()) + Chr(10)
version = version + "Version " + Str(MajorVersion()) + "." + Str(MinorVersion())
Print " "; version
End Sub